{Test package GetPutPixel get / put pixel / pixvect for 8, 16u, 16s, 32s, 32r, 96r}
var
 h,v,n: integer;
 a,b,out: integer;
 kx,ky,kw,kh: integer;
 kernelPid: integer;
 xlate16uto8Pid, ymin, ymax: integer;

macro '[h] set horizontal coordinate';
begin
   h := getNumber('h = ',h);
end;

macro '[v] set vertical coordinate';
begin
   v := getNumber('v = ',v);
end;

macro '[n] set value to store next';
begin
 n := getNumber('n = ',n);
end;


Macro 'Test getPixel8';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixel8(',picNumber,h,v,') = ',getPixel8(picNumber,h,v));
end;
Macro 'Test getPixel16u';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixel16u(',picNumber,h,v,') = ',getPixel16u(picNumber,h,v));
end;
Macro 'Test getPixel16s';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixel16s(',picNumber,h,v,') = ',getPixel16s(picNumber,h,v));
end;
Macro 'Test getPixel32s';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixel32s(',picNumber,h,v,') = ',getPixel32s(picNumber,h,v));
end;
Macro 'Test getPixel32r';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixel32r(',picNumber,h,v,') = ',getPixel32r(picNumber,h,v));
end;
Macro 'Test getPixel96r';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixel96r(',picNumber,h,v,') = ',getPixel96r(picNumber,h,v));
end;
Macro 'Test getPixVec8';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixVec8(',picNumber,h,') = ',getPixVec8(picNumber,h));
end;
Macro 'Test getPixVec16u';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixVec16u(',picNumber,h,') = ',getPixVec16u(picNumber,h));
end;
Macro 'Test getPixVec16s';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixVec16s(',picNumber,h,') = ',getPixVec16s(picNumber,h));
end;
Macro 'Test getPixVec32s';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixVec32s(',picNumber,h,') = ',getPixVec32s(picNumber,h));
end;
Macro 'Test getPixVec32r';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixVec32r(',picNumber,h,') = ',getPixVec32r(picNumber,h));
end;
Macro 'Test getPixVec96r';
begin
   requiresUser('getputpixel',1);
   showMessage('getPixVec96r(',picNumber,h,') = ',getPixVec96r(picNumber,h));
end;
Macro 'Test putPixel8';
begin
   requiresUser('getputpixel',1);
   putPixel8(picNumber,h,v,n);
end;
Macro 'Test putPixel16u';
begin
   requiresUser('getputpixel',1);
   putPixel16u(picNumber,h,v,n);
end;
Macro 'Test putPixel16s';
begin
   requiresUser('getputpixel',1);
   putPixel16s(picNumber,h,v,n);
end;
Macro 'Test putPixel32s';
begin
   requiresUser('getputpixel',1);
   putPixel32s(picNumber,h,v,n);
end;
Macro 'Test putPixel32r';
begin
   requiresUser('getputpixel',1);
   putPixel32r(picNumber,h,v,n);
end;
Macro 'Test putPixel96r';
begin
   requiresUser('getputpixel',1);
   putPixel96r(picNumber,h,v,n);
end;
Macro 'Test putPixVec8';
begin
   requiresUser('getputpixel',1);
   putPixVec8(picNumber,h,n);
end;
Macro 'Test putPixVec16u';
begin
   requiresUser('getputpixel',1);
   putPixVec16u(picNumber,h,n);
end;
Macro 'Test putPixVec16s';
begin
   requiresUser('getputpixel',1);
   putPixVec16s(picNumber,h,n);
end;
Macro 'Test putPixVec32s';
begin
   requiresUser('getputpixel',1);
   putPixVec32s(picNumber,h,n);
end;
Macro 'Test putPixVec32r';
begin
   requiresUser('getputpixel',1);
   putPixVec32r(picNumber,h,n);
end;
Macro 'Test putPixVec96r';
begin
   requiresUser('getputpixel',1);
   putPixVec96r(picNumber,h,n);
end;